home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / Controls.el < prev    next >
Encoding:
Text File  |  1994-02-10  |  1.2 KB  |  46 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;;
  4. ;;; GNU Emacs is distributed in the hope that it will be useful,
  5. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  6. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  7. ;;; GNU General Public License for more details.
  8. ;;;
  9.  
  10. (defconst pushButProc 0)
  11. (defconst checkBoxProc 1)
  12. (defconst radioButProc 2)
  13. (defconst useWFont 8)
  14. (defconst scrollBarProc 16)
  15. (defconst inButton 10)
  16. (defconst inCheckBox 11)
  17. (defconst inUpButton 20)
  18. (defconst inDownButton 21)
  19. (defconst inPageUp 22)
  20. (defconst inPageDown 23)
  21. (defconst inThumb 129)
  22. (defconst popupMenuProc 1008)
  23. (defconst inLabel 1)
  24. (defconst inMenu 2)
  25. (defconst inTriangle 4)
  26.  
  27. ; pascal void HiliteControl(ControlHandle theControl,short hiliteState)
  28. ;    = 0xA95D; 
  29. (deftrap HiliteControl ("a95d")
  30.   ((theControl long)
  31.    (hiliteState short))
  32.   nil)
  33.  
  34. ; pascal void SetCtlValue(ControlHandle theControl,short theValue)
  35. ;     = 0xA963; 
  36. (deftrap SetCtlValue ("a963")
  37.   ((theControl long)
  38.    (theValue short))
  39.   nil)
  40.  
  41. ; pascal short GetCtlValue(ControlHandle theControl)
  42. ;     = 0xA960; 
  43. (deftrap GetCtlValue ("a960")
  44.   ((theControl long))
  45.   short)
  46.